[20悬赏]VB Combobox关联并控制access数据库的问题

来源:百度知道 编辑:UC知道 时间:2024/05/26 05:43:33
求教:
VB的combobox控件如何关联access数据库?在combobox中的list项中如何显示数据库中的数据?并且在combobox中单击下来菜单的内容时如何做到对应内容有不同响应?如:单击A1弹出FrmA1窗口,单击A2弹出FrmA2窗口?
这两个问题是有关联的,combobox控件中的list的内容是对应数据库中的内容的。

想链接数据库
rs.open"select 字段 from 表名",con,1,3
do while not rs.eof
cbo.additem rs("字段")
loop
单击
在combox控件的click事件
if cbo.text=A1 then
frmA1.show
end if

Dim rs As New ADODB.Recordset

'清除combox 内容
If i >= 0 Then
For i = 0 To Combo29.ListCount - 1
Combo29.RemoveItem 0
Next i
End If

rs.Open "表名", CurrentProject.Connection, adOpenStatic

While Not rs.EOF
'显示 字段2
Combo29.AddItem rs(1).Value
rs.MoveNext
Wend